home *** CD-ROM | disk | FTP | other *** search
- object FormSelectFont: TFormSelectFont
- Left = 480
- Top = 207
- BorderStyle = bsDialog
- Caption = 'Font & Color Dialog'
- ClientHeight = 210
- ClientWidth = 427
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnActivate = FormActivate
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 427
- Height = 210
- Align = alClient
- BevelOuter = bvLowered
- BevelWidth = 3
- TabOrder = 0
- object lblBackground: TLabel
- Left = 24
- Top = 24
- Width = 69
- Height = 13
- Caption = 'Background'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Image1: TImage
- Left = 3
- Top = 3
- Width = 421
- Height = 204
- Align = alClient
- Picture.Data = {<image000.bmp>}
- Stretch = True
- end
- object pbHelp: TRSButton
- Left = 272
- Top = 166
- Width = 90
- Height = 25
- Center = True
- Picture.Data = {<image001.bmp>}
- Transparent = True
- OnClick = pbHelpClick
- end
- object pbCancel: TRSButton
- Left = 173
- Top = 166
- Width = 90
- Height = 25
- Center = True
- Picture.Data = {<image002.bmp>}
- Transparent = True
- OnClick = pbCancelClick
- end
- object pbOK: TRSButton
- Left = 72
- Top = 166
- Width = 90
- Height = 25
- Center = True
- Picture.Data = {<image003.bmp>}
- Transparent = True
- OnClick = pbOKClick
- end
- object PanelColor: TPanel
- Left = 8
- Top = 8
- Width = 409
- Height = 145
- BevelWidth = 3
- TabOrder = 0
- object Image2: TImage
- Left = 3
- Top = 3
- Width = 403
- Height = 139
- Align = alClient
- Picture.Data = {<image004.bmp>}
- Stretch = True
- end
- object lblFont: TLabel
- Left = 176
- Top = 32
- Width = 26
- Height = 13
- Caption = 'Font'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- Visible = False
- end
- object lblName: TLabel
- Left = 16
- Top = 16
- Width = 26
- Height = 13
- Caption = '&Font'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object lblStyles: TLabel
- Left = 16
- Top = 40
- Width = 29
- Height = 13
- Caption = '&Style'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Label1: TLabel
- Left = 14
- Top = 69
- Width = 102
- Height = 13
- Caption = 'Background Color'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Label2: TLabel
- Left = 13
- Top = 99
- Width = 98
- Height = 13
- Caption = 'Foreground Color'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object cgFont: TColorGrid
- Left = 168
- Top = 48
- Width = 120
- Height = 72
- ForegroundIndex = 14
- BackgroundIndex = 4
- TabOrder = 0
- Visible = False
- OnClick = UpdateClick
- end
- object cbNames: TComboBox
- Left = 56
- Top = 8
- Width = 121
- Height = 21
- Color = clNavy
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clAqua
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- TabOrder = 1
- Text = 'MS Sans Serif'
- OnClick = UpdateClick
- end
- object cbStyles: TComboBox
- Left = 56
- Top = 32
- Width = 121
- Height = 21
- Color = clNavy
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clAqua
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- TabOrder = 2
- Text = 'Normal'
- OnClick = UpdateClick
- Items.Strings = (
- 'Normal'
- 'Bold')
- end
- object Panel2: TPanel
- Left = 192
- Top = 8
- Width = 209
- Height = 129
- BevelOuter = bvLowered
- BevelWidth = 3
- Enabled = False
- TabOrder = 3
- object Image3: TImage
- Left = 3
- Top = 3
- Width = 203
- Height = 123
- Align = alClient
- Picture.Data = {<image005.bmp>}
- Stretch = True
- end
- object Memo: TMemo
- Left = 8
- Top = 8
- Width = 193
- Height = 113
- Color = clNavy
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clAqua
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Lines.Strings = (
- 'Example of text.'
- 'ABCDEFGHIJKLMNOPQRSTUVXYZ'
- 'abcdefghijklmnopqrstuvz'
- '0123456789'
- '!"#�%&/()=?`�^*'
- '@�${[]}\~'
- '')
- ParentFont = False
- TabOrder = 0
- end
- end
- object pbBG: TPanel
- Left = 120
- Top = 67
- Width = 17
- Height = 17
- BevelWidth = 3
- TabOrder = 4
- OnClick = pbBGClick
- end
- object pbFG: TPanel
- Left = 120
- Top = 96
- Width = 17
- Height = 17
- BevelWidth = 3
- TabOrder = 5
- OnClick = pbFGClick
- end
- end
- end
- object ColorDialog: TColorDialog
- Ctl3D = True
- Options = [cdFullOpen, cdPreventFullOpen, cdShowHelp, cdSolidColor, cdAnyColor]
- Left = 112
- Top = 48
- end
- end
-